# Usage: youngstown.tcl

if {![info exists eWorkDir]} {set eWorkDir [file dirname [info script]]}

package require DPeye

# Wrap center: According to the distribution of locations, the center is at .43, .59.
# However, purely visual, having the center at the edge of the most dense spot on the
# map, i.e. Europe, is more visually pleasing. Hence we locate it at .3, .7, which is
# nearly on the Rum-Sev border.
pass cleanUpCache
create {
	outputFile youngstown.ps
	mapFile youngstown.map
	title Youngstown
	creator "Mario Huys (woelpad@yahoo.com)"
	$MapDrawingScale .5 $MapSupplyScale .7
	wraparound 3 $WrapCenterXRatio .3 $WrapCenterYRatio .7
	powers {
		AUSTRIA {A Red Black}
		CHINA {C Orange White}
		ENGLAND {E Blue White}
		FRANCE {F Turquoise Black}
		GERMANY {G Black White}
		ITALY {I Green Black}
		JAPAN {J Grey Black}
		INDIA {N Mauve White}
		RUSSIA {R White Black}
		TURKEY {T Yellow Black}
	}
	images {
		ice {ice.bmp {trace 0 1} black}
		continent {continent.bmp {trace 0 1} blue}
		borders1 {borders1.bmp {trace 0 1}}
		borders2 {borders2.bmp {trace 0 1}}
		locations {locations.bmp {trace 1}}
	}
	borders {
		ice {image {ice black} IceGrey Border}
		land {image {continent blue} LandBrown Border}
		lake {image {continent cyan} SeaBlue Border}
		mountain {image {continent magenta} MountainGrey NationalBorder}
		borders {image {{borders1 borders2} black} {} NationalBorder}
		internalBorders {image {{borders1 borders2} maroon} {} InternalBorder}
		seaBorders {image {{borders1 borders2} purple} {} InternalBorder}
		canalBorders {image {borders1 navy} {} Border}
		pointers {shape arrows White Border {ArrowBlack .75}}
	}
	locationTypes {
		Supplies {number 0 name 0 draw 1 define -1}
		Territories {number 0 name 1 populate 0 info 1}
		OffBoardBoxes {number 0 name 1 draw 1 populate 0 info 1}
		ShapePoints {number 0}
	}
	locations {
		supplies {{locations {red 11.167 11.5}} Supplies s {Blue {} S} {
			IRE {EDI -2} LVP POR BRE {LON -7 -2} SPA NWY MOR
			PAR BEL {HOL -7 -6} KIE DEN SWE MAR BER POS
			{MUN 2 -2} STP {VEN 5 2} WAR TRI {VIE 0 -3} {ROM 0 -2} BUD TUN
			NAP MOS SER KLU BUL {RUM -1} SEV GRE CON
			OMS PEN SMY KAR ANK MAN VLA OMO EGY
			BAG TOK IRA SIN KYO KOR PEK OSA HAN
			DEL FOR ETH YEM CAN CAL VTN PHI BRM
			MOG MAD THA CAM SAI CEY JOH BOR JAV
		}}
		coasts {{locations {green 4 4}} Territories c {Red DarkGreen AF} {
			IRE {CLY 0 2} {EDI 4 1} {LVP 0 1} {WAL -6} POR {YOR 7} {LON 10 -7} NWY
			BRE PIC {HOL 3 2} {GAS 2 -1} {DEN 2 -6} {BEL -3 -2} MOR SWE {KIE 1}
			{MAR 0 -2} BER FIN {ALG -1} {PIE 2} {POS 0 -1} PRU {TUS -6} LVN
			SIB {VEN 4} {ROM -1 -1} {TRI 0 1} TUN {MON 1 1} {NAP -10 -9} {APU 2} {ALB 0 -1}
			RUM {GRE 4 -3} SAK LIB {KAR 1 -4} VLA CON SEV ANK
			PEN SMY HOK {ARM 1} SYR {AKI -5} MAN {TOK 2} {KYO -4 3}
			{FUJ 0 -5} BAG KOR {OSA 0 -1} PEK {KYU -2} IRA SUD SND
			CAN ETH {YEM -6 -1} FOR {SIK -3 -1} CAL {RAJ 2} {VTN -6 -3} DAN
			BRM PHI {MOG -4 -2} {ANN -3 2} {CAM 7 -1} EAF MAD SAI CEY
			JOH {BRU 20 19} BOR SUM {JAV 0 1}
		}}
		lands {{locations {maroon 4 4}} Territories l {Green DarkGreen A} {
			PAR SPA {BUR -2 -1} {RUH 0 -3} {MUN 2 -3} SAX BOH {TYR 3} {SIL 1 -4}
			{VIE 1 -2} STP {WAR 4 -1} GAL SAH {BUD 0 -2} {KLU 0 -2} {UKR 0 -2} SER
			MOS OMS BUL OMO JOR EGY FEZ TUR IMO
			SIN AFG NEJ KAN {KAS -1} HAN TIB NEP DEL
			{SHA 0 -1} DEC {LAO 0 -2} THA
		}}
		waters {{locations {teal 4 4}} Territories w {White White F} {
			{NAO -12 2} MAO IRI NWG SAO {ENG 1 -4} {NTH 0 -2} {SKA 4 1} BAR
			{HEL 0 -3} BOT BAL WES LYO TYS {ADR 0 -3} OKH ION 
			BLA NPO {AEG 0 -1} EAS {SUE 0 1} JAP YEL RED PER
			ECS ADE ARA SPO TON BEN SCS AND SOM 
			SIA WIO EIO TIM MAL CEL
		}}
		beaches {{locations {yellow 4 4}} Territories b {Yellow {} F} {
			SPA/NC SPA/SC STP/NC {STP/SC -2 4} {BUL/EC 7 -2} {BUL/SC 0 -4}
			EGY/NC JOR/NC {JOR/WC 0 -1} EGY/EC {NEJ/EC -1} NEJ/WC
			{THA/WC 1 -10} {THA/EC -3 -5} 
		}}
		mountains {{locations {olive 4 4}} Territories m {Black {} A} {
			SWI HIM
		}}
		ices {{locations {cyan 4 4}} Territories i {Blue {} F} {
			ACI CAS
		}}
		highSeas {{locations {navy 4 4}} OffBoardBoxes h {Turquoise White O F} {
			{{OBC BDHIJK} 2 -2} {{OBB ACKL} 0 -2} {{OBA BL} -17 -2} {{OBL ABK} -2}
			{{OBK BCJL} -2} {{OBH CGI} 0 2} {{OBI CH} 0 2} {{OBJ CK} -2 2}
		}}
		fjords {{locations {purple 4 4}} OffBoardBoxes f {Pink DarkGreen O AF} {
			{{OBD CEFG} 2} {{OBG DEFH} 2}
		}}
		deserts {{locations {magenta 4 4}} OffBoardBoxes d {Orange DarkGreen O A} {
			{{OBE DG} 2} {{OBF DG} 2}
		}}
		pointers {{locations {magenta 5 5}} ShapePoints x DarkGreen}
	}
	shapes {
		arrows {pointers {{connection 6 0 {0 1 20 12}} {{2 -18 9} {1 -2 -2}}}}
	}
	paperSize A4 pageMarginWidth 15 pageMarginHeight 30
	layout {corner owners} fontSize 7
	orderHasHeading 2 orderColumns 2 retreatHasHeading 3 retreatColumns 2 adjustmentHasHeading 3 adjustmentColumns 2
	gameTitle Dip boardTitleFontSizeRatio 2
	drawLayoutBorder 7 composed 0 printLayout 0 
	addPage 1 pageContents {
		"\{"

		"200 40 DrawFleet"
		"200 40 180 140 ArrowPropose"
		"200 40 100 20 ArrowRetreat"
		"200 40 300 60 ArrowMove"
		
		"180 140 DrawArmy"
		"ProposePhase"
		"180 140 160 240 ArrowMove"
		"RetreatPhase"
		"180 140 80 120 ArrowMove"
		"MovePhase"
		"180 140 280 160 ArrowMove"

		"300 90 DrawFleet"
		"300 90 200 40 180 140 ArrowSupport"
		"300 120 DrawArmy"
		"300 120 180 140 ArrowHold"
		"300 150 DrawFleet"
		"300 150 180 140 160 240 ArrowConvoy"

		"\} dup exec -40 200 translate FailedOrder exec OkOrder 40 -200 translate"
				
		"400 200 DrawFleet"
		"400 200 ArrowArrive"
		"400 230 DrawArmy"
		"400 230 ArrowDepart"
		"400 260 DrawFleet"
		"400 260 ArrowRetreatArrive"
		"400 290 DrawArmy"
		"400 290 ArrowRetreatDepart"
		
		"500 200 DrawFleet"
		"500 200 BuildUnit"
		"500 230 DrawArmy"
		"500 230 DestroyUnit"
		"500 260 DrawFleet"
		"500 260 DisbandUnit"
		"500 290 DrawArmy"
		"500 290 RemoveUnit"
		"500 320 DrawFleet"
		"500 320 FindUnit"
		"500 350 DrawArmy"
		"500 350 LoseUnit"
		"500 380 DrawFleet"
		"500 380 QueryUnit"
    }
}

# For A4 document
#	paperSize A4 pageMarginWidth 15 pageMarginHeight 15
#	orderColumns 2 retreatHasHeading 3 retreatBoxLength 9!
#	layout {corner owners} fontSize 7
#	gameTitle Dip boardTitleFontSizeRatio 2

# For Letter document
#	paperSize Letter pageMarginWidth 15 pageMarginHeight 30
#	orderColumns 2 retreatHasHeading 3 ownerLineLength 0 adjustmentBoxLength 16!
#	layout {corner adjustments} fontSize 7
#	gameTitle Dip boardTitleFontSizeRatio 2


#cleanUpCache